home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / text / print / Epson_600.lha / Install_Driver < prev    next >
Text File  |  2000-03-05  |  1KB  |  45 lines
  1. . $VER: Install_Printer_Driver 2.2 (3/9/99)
  2. . Peter Hutchison
  3.  
  4. . WB 2.x
  5. If Not Exists c:RequestChoice
  6.    Copy Epson_Stylus_600#? Devs:Printers
  7.    Sys:Prefs/Printer
  8.    Sys:Prefs/PrinterGfx
  9.    Quit
  10. Endif
  11. . WB 3.x
  12. RequestChoice >env:cpu "Select Processor version" "Which version of driver do you require?" "68000|68020|Cancel"
  13. If $CPU EQ "0"
  14.    Quit
  15. endif
  16. If $CPU EQ "1"
  17.   Copy Epson_Stylus_600.000 to t:Driver
  18. Endif
  19. IF $Cpu EQ "2"
  20.   Copy Epson_Stylus_600.020 to t:Driver
  21. Endif
  22. Copy t:Driver to t:Epson_Stylus_600 Quiet
  23. Copy t:Driver to t:Epson_Stylus_640 Quiet
  24. Copy t:Driver to t:Epson_Stylus_660 Quiet
  25. Copy t:Driver to t:Epson_Stylus_700 Quiet
  26. Copy t:Driver to t:Epson_Stylus_740 Quiet
  27. Copy t:Driver to t:Epson_Stylus_750 Quiet
  28. Copy t:Driver to t:Epson_Stylus_760 Quiet
  29. Copy t:Driver to t:Epson_Stylus_800 Quiet
  30. Copy t:Driver to t:Epson_Stylus_850 Quiet
  31. Copy t:Driver to t:Epson_Stylus_900 Quiet
  32. RequestFile >env:Driver Drawer t: Pattern "Epson#?" Title "Select Driver" Noicons
  33. Copy $Driver Devs:Printers quiet
  34. Delete t:Driver t:Epson#? quiet
  35. RequestChoice >env:NewPref "Printer Prefs" "Do you wish to change Printer Prefs?" "Yes|No"
  36. If $NewPref EQ "1"
  37.   sys:prefs/printer
  38. Endif
  39. RequestChoice >env:NewPref "PrinterGfx Prefs" "Do you wish to change PrinterGfx Prefs?" "Yes|No"
  40. If $NewPref EQ "1"
  41.   sys:prefs/printergfx
  42. Endif
  43.  
  44.  
  45.